home *** CD-ROM | disk | FTP | other *** search
/ Visual Basic Source Code / Visual Basic Source Code.iso / vbsource / toglprnt / togglprt.bas < prev    next >
BASIC Source File  |  1995-09-06  |  536b  |  13 lines
  1. Global Const Cr = "Copyright JSS, Inc. 1992 - Steve Schiavo, Center Point, TX"
  2. Global Const ToggleTo = "Toggle to "
  3. Global Target As String
  4. Declare Function GetProfileString% Lib "kernel" (ByVal AppName$, ByVal KeyName$, ByVal Default$, ByVal Answer$, ByVal MaxLen%)
  5. Declare Function WriteProfileString% Lib "kernel" (ByVal AppName$, ByVal KeyName$, ByVal Insert$)
  6. Global Const True = -1
  7. Global Const False = 0
  8. Global HP2Default As String
  9. Global FAXdefault As String
  10. Global MaxSiz As Integer
  11. Global WasMinimized As Integer
  12.  
  13.